* xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.

diff --git a/src/ChangeLog b/src/ChangeLog
index 04fce4d98115a7901f90235f120ab3d018c0a497..c37562fb095bb46fdb0a6c8247ef7a637c0b9766 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-19  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
+
 2003-02-18  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * xterm.c (x_list_fonts): If maxnames is less than 0, get all font

diff --git a/src/xfaces.c b/src/xfaces.c
index 0e6fa8daf34fc36f12c6f2959acfcaaff1b8c9a6..7c668bc57876a2dfbe2318fa50a9f326412f4bf8 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2516,8 +2516,12 @@ x_face_list_fonts (f, pattern, pfonts, nfonts, try_alternatives_p)
     {
       Lisp_Object list = Valternate_fontname_alist;
 
-      if (fonts) xfree (fonts);
-      
+      if (*pfonts)
+        {
+          xfree (*pfonts);
+          *pfonts = 0;
+        }
+
       while (CONSP (list))
        {
          Lisp_Object entry = XCAR (list);